home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 1999 #3
/
Amiga Plus CD - 1999 - No. 3.iso
/
System
/
mainactor
/
rexx
/
saveiff.ma
< prev
next >
Wrap
Text File
|
1977-12-31
|
1KB
|
49 lines
/*
* SaveIFF V1.1, 1993 Markus Moenig
*
* Save the pictures of the source project as IFF pictures.
* You will be asked for the base name of the pictures.
*/
OPTIONS RESULTS
ADDRESS MAINACTOR
ScreenToFront /* flip screen to front */
/* print message */
PrintAndStoreTXT "SaveIFF V1.1 saving pictures in IFF Format ..."
GetSPName
IF rc = 0 THEN DO /* check if project loaded */
PARSE VAR RESULT firstname secondname . /* store name of the animation */
/* or the names of the picture list */
GetSPSaver
PARSE VAR RESULT savertype savername . /* store saver module */
SetSPSaver PIC IFF /* Set saver module to IFF */
/* Ask for Picture BaseName */
RequestSaveFile "Select Picture Base Name"
IF RC = 10 THEN DO
PrintTXT "Aborting ..."
EXIT
END
newname = RESULT /* new name = RESULT */
SelectAll /* select all frames/pictures */
Save newname /* save em as IFF pics */
SetSPSaver savertype savername /* restore old saver module */
END